home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Hyper / H / HyperExtras.sit / HyperExtras / HyperExtras.rsrc / TEXT_3019_createBgFld.txt < prev    next >
Encoding:
Text File  |  1994-03-23  |  1.5 KB  |  38 lines
  1. lock screen
  2. put the editBkgnd into bgTrue
  3. set the editBkgnd to true
  4. doMenu "New Field"
  5. set the editBkgnd to bgTrue
  6.   put line 1 of info into newName
  7.   put tempFldnNameSC into tname
  8.   put number of bg fields into num
  9.   set name of bg field num to tname
  10.   set rect of bg field tname to line 2 of info
  11. put (item 1 of line 2 of info)&","&(item 2 of line 2 of info) into locB
  12.   if locB > botright of cd then
  13.     set loc of bg field tname to "50,50"
  14.   end if
  15.   set style of bg field tname to line 3 of info
  16.   set showLines of bg field tname to line 4 of info
  17.   set widemargins of bg field tname to line 5 of info
  18.   set autoTab of bg field tname to line 6 of info
  19.   set dontSearch of bg field tname to line 7 of info
  20.   set dontWrap of bg field tname to line 8 of info
  21.   set fixedLineHeight of bg field tname to line 9 of info
  22.   set sharedText of bg field tname to line 10 of info
  23.   set locktext of bg fld tname to line 11 of info
  24.   set textFont of bg field tname to line 12 of info
  25.   set textSize of bg field tname to line 13 of info
  26.   set textAlign of bg field tname to line 14 of info
  27.   set textStyle of bg field tname to line 15 of info
  28.   put number of lines in info into y
  29.   put line 16 of info into scriptLength
  30.   
  31.   put number of lines in info into y
  32.   if line 17 of info is not "emptySC" then
  33.     put line 17 to scriptLength+15 of info into scinfo
  34.     set script of bg field tname to scinfo
  35.   end if
  36.   put line (scriptLength+16) to y of info into x
  37.   put x into bg fld tname
  38.   set name of bg field tname to newName